home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 331 / gemfsc14 / aessrc14 / aesshel2.s < prev    next >
Text File  |  1989-04-06  |  1KB  |  41 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*  04/05/89 -  v1.2
  7. ;*              Finally received confirmation for the proper definitions 
  8. ;*              of shel_get/shel_put.  The (incorrect) definition of
  9. ;*              shel_get() was removed from aesshel1.s and defined 
  10. ;*              properly here.
  11. ;*========================================================================
  12.  
  13.           .include  "aesfast.sh"
  14.           
  15. ;*************************************************************************
  16. ;*
  17. ;* Shell library routines 2 of 2.
  18. ;*  These two routines are mostly likely to be used by a desk accessory
  19. ;*  functioning as a replacement for the control panel, so they are
  20. ;*  isolated from the other shell functions.
  21. ;*************************************************************************
  22.  
  23. ;-------------------------------------------------------------------------
  24. ; shel_get
  25. ; shel_put
  26. ;-------------------------------------------------------------------------
  27.  
  28. _shel_get::
  29.           AControl  122,1,1,1
  30.           bra.s     shel_getput
  31. _shel_put::
  32.           AControl  123,1,1,1
  33. shel_getput:
  34.           .cargs    #4,.bufptr.l,.buflen.w
  35.           lea       .bufptr(sp),a0    ; -> addrin
  36.           lea       .buflen(sp),a1    ; -> intin
  37.           ACall     RET2USER
  38.           
  39. ;         end of code
  40.  
  41.